home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / hacking / virriiorg / findport.irc < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.4 KB  |  52 lines
  1. alias findports {
  2.    ^on ^211 -
  3.    ^assign -server_inquired
  4.    ^assign -found_ports
  5.    ^assign -server_inquired
  6.    ^on #^364 -567 "*" assign server_inquired $$1
  7.    ^set display off
  8.    //links $0
  9.    wait 
  10.    ^on #^364 -567 -*
  11.    /echo $ex Tracking ports for server $server_inquired, please wait...
  12.    /portf $server_inquired
  13. }
  14.  
  15. alias portf {
  16.    ^assign -connecting_port
  17.    ^assign -port_output
  18.    ^assign -serverp
  19.    ^assign -serverp_size
  20.    ^assign serverp $0
  21.    ^assign serverp_size $@serverp
  22.    ^on #^211 -567 * if ( match($serverp $left($serverp_size $1)) ) {
  23.        ^assign connecting_port $1
  24.         @port_output = port_output ## [$lastbit($connecting_port) ]
  25.    }
  26.    //stats L $serverp
  27.    wait
  28.    wait
  29.    ^timer 5 /fportclean
  30.    @function_return = [$port_output]
  31. }
  32.  
  33. alias fportclean {
  34.    ^on #^211 -567 -*
  35.    /echo $ex The port(s) for server $server_inquired are:
  36.    /echo $ex $port_output
  37.    /echo $ex Port tracking complete.
  38.    ^on ^211 * ^echo $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6
  39.    ^on ^211 "% *.*[*.*] *" $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6
  40.    ^on ^211 "% *[*" if (trace) {^echo $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6}
  41.    ^set display on
  42. }
  43.  
  44. alias lastbit {
  45.    ^assign -lastbits
  46.    ^assign -lastbits2
  47.    @lastbits = rindex(. $0)
  48.    @lastbits = lastbits + 1
  49.    @lastbits2 = mid($lastbits $lastbits $0)
  50.    @function_return = strip(] $lastbits2)
  51. }
  52.